' Theremino Automation - program name: Leo test on slots

' Questo programm alla pressione del tasto AVVIO esce dal loop 
' esegue un solo ciclo di Counter1 e poi un solo ciclo di Counter2 
' per poi tornare nel loop AVVIO 
' in attesa di:
' pressione del tasto AVVIO 
' pressione del Tasto "1" della tastiera
' slot 10 (con collegato un pulsante) che supera 500 
' (eventualmente cambiare il >500 in <500 se si usa il tasto a massa con pullUp)


Speed 7 			' IL CURSORE SPEED HA 9 TACCHE - DA 1 a 9 - SPEED VA ANCHE LUI DA 1 A 9

Button 1 Text AVVIO
Button 2 Text PAUSA
Button 3 Text FERMA
Button 4 Text " "      ' nella prossima versione eliminiamo l'errore che accade con stringa vuota
Button 5 Text " "      ' facciamo proprio sparire i bottoni e ingrandiamo i due che ti servono

Key 1 Gosub AVVIO      ' I GoSub sono per sotto-funzioni - che tornano - e che terminano con Return
Key 2 Gosub PAUSA      ' I GoSub sono per sotto-funzioni - che tornano - e che terminano con Return
Key 3 Goto FERMA       ' I GoTo sono per funzioni - che non tornano - e che terminano con Stop

' Qui looppa in attesa di comandi
Label Loop		
	Slot(11) = 0				' azzero gli slot prima della loro esecuzione
	Slot(12) = 0  
	If Slot(6) > 500
		Gosub AVVIO			' se lo slot 10 supera il valore 500 viene chiamato AVVIO
	EndIf   
Goto Loop

' Se le chiami Action allora devi chiamarlo cin un tasto chiamato Action
' Invece tu avevi un tasto chiamato AVVIO
Label AVVIO 
	
Label Counter1		
	Slot(11) = Slot(11) + 1 ' Incremento il valore nello slot 11 fino a 100 
	If Slot(11) > 100 
		Goto Counter2
	EndIf
Goto Counter1

Label Counter2
	Slot(12) = Slot(12) + 1 ' incremento il valore nello Slot 12 fino a 100
	If Slot(12) > 100 
		Goto Fine
	EndIf
Goto Counter2

Label Fine
	
Return						' qui finisce la funzione AVVIO e si RI-torna al loop

Label PAUSA
	Button 2 Text RESTART
	Label LoopPausa
	Goto LoopPausa
	
Label RESTART
Return	

Label FERMA
Goto Loop
Stop			

' Dopo aver premuto il tasto 3 o il pulsante STOP, 
' che devo fare per far ripartire con 1 o con il tasto AVVIO?

' BASTA PREMERE 1 o AVVIO o lo slot 10


' E comunque adesso se premi 1 ovviamente non passa per Loop 
' pero' incrementa i valori delle slot 11 e 12 
' Io vorrei che quando lo slot 6 e' > 500 sia attivata una Pausa, ?
' forse l'uso della parola stop e' fuorviante.

' NON HO CAPITO COSA DEVI FARE
' LA PAUSA LA METTEREMO A PUNTO IN SEGUITO

' Avrei dovuto chiamarla PAUSA, ma credimi, implementare questa cosa mi mette in difficolta' 
' ... sara' perche' devo prenderci la mano.

' PROVA CON ALTRI LINGUAGGI E VEDRAI CHE TI VERRA' ANCHE PIU' DIFFICILE

' Saresti cosi' cortese da mostrarmi come mettere in pausa con il pasto PAUSA 
' e far ripartire l'esecuzione 

' alla pressione del tasto AVVIO.
' Il tasto STOP rimane e sta per "end of job", 
' ma sarebbe bene che andasse automaticamente in EDIT (forse serve l'istrruzione Exit?).

' PER ANDARE IN EDIT C'E' IL TASTO RUN / EDIT 

' Return  <<< non serve a ninet

